﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
dim listid,id,pageid,reid

		listid=Request.QueryString("listid")
		if not isnumeric(listid) then listid=1
		if listid="" then listid=1

		id=Request.QueryString("id")
		if not isnumeric(id) then id=1
		if id="" then id=1

		reid=Request.QueryString("reid")
		if not isnumeric(reid) then reid=1
		if reid="" then reid=1

		pageid=Request.QueryString("pageid")
		if not isnumeric(pageid) then pageid=1
		if pageid="" then pageid=1
if fv="0" or fv="" then fv=a
if v="0" then Response.Redirect "upa.asp?listid="&listid&"&amp;reid="&id&"&amp;pageid="&pageid&"&amp;sid="&sid&"-1-"&fv
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title><%=qingtian.utf8("上传文件")%></title></head>
<body>
<!--#include virtual="/css.inc"-->
<p>
<%=qingtian.qingsav("71")%>
<%
if id=0 or listid=0 then
	%><%=we%><%=qingtian.utf8("请不要非法传递参数")%><br/><a href="index.asp?sid=<%=sidd%>"><%=qingtian.utf8("论坛首页")%></a><%=we0%><%
	response.end
end if



if sid="Null" then
	%><%=we%><%=qingtian.utf8("你还没登陆,请先登陆。")%><%=we0%>
	<%=sou%><a href="/login.asp?sid=<%=sidd%>&amp;url=/bbs/board.asp?listid=<%=listid%>@@id=<%=id%>@@pageid=<%=pageid%>@@sid=<%=sidd%>"><%=qingtian.utf8("马上登陆")%></a><%=we0%>
	<%
elseif qingtian.qx("nofile", listid)=true then
		%>

		<%=we%><%=qingtian.utf8("出错啦!你已被禁止在本论坛上传附件,有任何问题请联系管理员!")%><%=we0%>
		<%
else

	dim rs,sql,filesize,upfile,Forum_upload
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT [upfile],[filesize],[format] FROM [qingtian_bbs_config]"
	Rs.Open Sql,conn,1,1
	if not (rs.eof and rs.bof) then
		upfile=rs("upfile")
		filesize=rs("filesize")
		Forum_upload=rs("format")
	else
		upfile=false
	end if
	Rs.close
	set rs=nothing


	if upfile=true then%>
		<%if Request.QueryString("action")="rep" then%>
		<form name="form1" action="upfi.asp?action=rep&amp;reid=<%=reid%>&amp;id=<%=id%>&amp;listid=<%=listid%>&amp;pageid=<%=pageid%>&amp;sid=<%=sidd%>" method="post"  enctype="multipart/form-data">
		<%else%>
		<form name="form1" action="upfi.asp?listid=<%=listid%>&amp;id=<%=id%>&amp;pageid=<%=pageid%>&amp;sid=<%=sidd%>" method="post"  enctype="multipart/form-data">
		<%end if%>
		<%=we%><%=qingtian.utf8("注意:文件太大因网络问题可能用手机上传不了.")%><%=we0%>
		<%=sou%><%=qingtian.utf8("类型：")%><%=qingtian.utf8(Forum_upload)%>,<%=qingtian.utf8("限制：")%><%=filesize%>K<%=we0%>
		<input type="file" name="FileName"   size="15"/><br/>
		<input name="ok" type="submit" value="上传文件"/>
		</form>
	<%else%>
		<%=we%><%=qingtian.utf8("系统禁止上传文件!")%><%=upfile%><%=we0%>
	<%end if%>
<%end if%>
	<%=qingtian.qingsav("70")%><%=sou%><a href="viewv.asp?id=<%=id%>&amp;listid=<%=listid%>&amp;pageid=<%=pageid%>&amp;sid=<%=sidd%>"><%=qingtian.utf8("返回帖子")%></a><br/>
	<a href="board.asp?listid=<%=listid%>&amp;page=<%=pageid%>&amp;sid=<%=sidd%>"><%=qingtian.utf8("返回帖子列表")%></a><%=we0%>

<%
End Function
%>
